home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / btrieve / tpbtrv.arc / BTRIEVE.PAS < prev   
Pascal/Delphi Source File  |  1988-04-13  |  3KB  |  64 lines
  1. { BTRIEVE }
  2.  
  3. {  Copyright 1988 by Mark R. Boler - All Rights Reserved                      }
  4.  
  5. { --------------------------------------------------------------------------- }
  6. {                                                                             }
  7. {  This is a Btrieve interface for Turbo Pascal version 4.xx.                 }
  8. {   It sets up the parameter block expected by Btrieve and issues             }
  9. {   the proper interrupts.  This has been modified for Mulkey.PAS             }
  10. {   to pass the key buffer length to Btrieve.                                 }
  11. {                                                                             }
  12. {  Usage:  Status:= Btrv(Op, PosBlock, Data, DataLen, KBuf, Key, KeyLen);     }
  13. {                                                                             }
  14. {                       Op is a word,                                         }
  15. {                       PosBlock is a 128 byte buffer,                        }
  16. {                       Data is an untyped parameter for the data buffer,     }
  17. {                       DataLen is the length of the data buffer,             }
  18. {                       KBuf is the untyped parameter for the key buffer,     }
  19. {                       Key is a byte,                                        }
  20. {                       KeyLen is a byte                                      }
  21. {                                                                             }
  22. {  Returns: Btrieve status code                                               }
  23. { --------------------------------------------------------------------------- }
  24.  
  25. {$B-}    { Boolean complete evaluation off }
  26. {$D+}    { Debug information on            }
  27. {$I-}    { I/O checking off                }
  28. {$L+}    { Linker uses memory for a buffer }
  29. {$N-}    { No numeric coprocessor          }
  30. {$R-}    { Range checking off              }
  31. {$S-}    { Stack checking off              }
  32. {$T-}    { .TPM file generation off        }
  33. {$V-}    { No VAR-String checks            }
  34.  
  35. UNIT Btrieve;
  36.  
  37. INTERFACE
  38.  
  39. FUNCTION Btrv(Op: WORD;
  40.               VAR PosBlock;
  41.               VAR Data;
  42.               VAR DataLen: WORD;
  43.               VAR KBuf;
  44.               Key: BYTE;
  45.               KeyLen: BYTE): WORD;
  46.  
  47. IMPLEMENTATION
  48.  
  49. FUNCTION Btrv(Op: WORD;
  50.               VAR PosBlock;
  51.               VAR Data;
  52.               VAR DataLen: WORD;
  53.               VAR KBuf;
  54.               Key: BYTE;
  55.               KeyLen: BYTE): WORD; EXTERNAL;
  56.  
  57. PROCEDURE InitBtrv; EXTERNAL;
  58.  
  59. {$L BTRIEVE.OBJ}
  60.  
  61. BEGIN {Init Btrieve }
  62.       InitBtrv;
  63. END. {Init Btrieve }
  64.